home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Comm / yam / YAMGenesis.lha / YAMGenesis / GenesisQuit.yam < prev    next >
Text File  |  2004-06-09  |  1KB  |  46 lines
  1. /* GenesisQuit.yam - Quit Genesis if started from YAM.
  2.  *
  3.  * $VER: GenesisQuit.yam 1.03 (9.6.04) © H. van der Ree <hivdree@uwnet.nl>
  4.  * 1.01 - 01.05.01  Working version from Aminet.
  5.  * 1.02 - 19.05.03  Added quiting of iSpell.
  6.  * 1.03 - 09.06.04  Added delete of YAMDONOTASKAGAIN variable.
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. /* Don't quit if one of these applications is running */
  12. ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
  13.  
  14. interface = GETVAR(GENESISINTERFACE, "GLOBAL")
  15. genesisport = "GENESIS"
  16.  
  17. action = GETVAR(STARTEDBYYAM, "GLOBAL")
  18. IF action = "YES" THEN
  19. DO
  20.   DO i = 1 TO WORDS(ports)
  21.     IF SHOW('P', WORD(ports,i)) THEN CALL LastBits
  22.   END
  23.  
  24.   IF SHOW('P', genesisport) THEN
  25.   DO
  26.     ADDRESS VALUE genesisport
  27.     ISONLINE interface
  28.     IF RC = 0 THEN
  29.     DO
  30.       QUIT
  31.     END
  32.   END
  33. END
  34.  
  35. LastBits:
  36.  
  37. CALL DELETEVAR(STARTEDBYYAM, "GLOBAL")
  38. CALL DELETEVAR(GENESISINTERFACE, "GLOBAL")
  39. CALL DELETEVAR(YAMDONOTASKAGAIN, "GLOBAL")
  40.  
  41. ADDRESS COMMAND 'delete >NIL: T:#?.unp T:#?.tmp T:msg.db T:qfu.rexx'
  42.  
  43. IF SHOW('P', 'IRexxSpell') THEN ADDRESS 'IRexxSpell' 'EXIT'
  44.  
  45. EXIT 0
  46.